object ZamForm: TZamForm
  Left = 241
  Top = 188
  ActiveControl = MaskEditZAM
  BorderStyle = bsDialog
  Caption = 'Zam Onay'
  ClientHeight = 100
  ClientWidth = 201
  Color = clTeal
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 4
    Top = 4
    Width = 177
    Height = 42
    Caption = 
      'Bu �r�n�n fiyat� artm�� bu zaml� fiyat ise  �r�n kart�na i�lensi' +
      'n mi?'
    Font.Color = clWhite
    Font.Height = -11
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
    WordWrap = True
  end
  object Label2: TLabel
    Left = 35
    Top = 42
    Width = 61
    Height = 14
    Caption = 'Onay Tarihi'
    Font.Color = clWhite
    Font.Height = -11
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object BtnEvet: TBitBtn
    Left = 31
    Top = 71
    Width = 54
    Height = 23
    Caption = '&Evet'
    Default = True
    Font.Color = clNavy
    Font.Height = -11
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 0
    OnClick = BtnEvetClick
  end
  object BtnHayir: TBitBtn
    Left = 116
    Top = 71
    Width = 54
    Height = 23
    Cancel = True
    Caption = '&Hay�r'
    Font.Color = clNavy
    Font.Height = -11
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ModalResult = 2
    ParentFont = False
    TabOrder = 1
  end
  object MaskEditZAM: TMaskEdit
    Left = 103
    Top = 39
    Width = 63
    Height = 21
    AutoSelect = False
    EditMask = '!90/90/9900;1;_'
    MaxLength = 10
    TabOrder = 2
    Text = '  .  .    '
  end
  object QUrun: TQuery
    DatabaseName = 'ECZ'
    Params.Data = {
      01000300056669794E6500070800000000000000000000000666697954726800
      0904005A950A000000046E6F737500030400000000000000}
    SQL.Strings = (
      'UPDATE URUN'
      'SET FIYAT=:fiyNe,'
      'FIYATARIH=:fiyTrh'
      'WHERE ILACNO=:nosu'
      '')
    Left = 16
    Top = 24
  end
  object QESKI: TQuery
    DatabaseName = 'ECZ'
    Params.Data = {01000100046E6F737500030400000000000000}
    SQL.Strings = (
      'SELECT'
      'URUN.FIYAT,'
      'URUN.FIYATARIH'
      'FROM URUN WHERE ILACNO=:nosu'
      '')
    Left = 48
    Top = 24
    object QESKIFIYAT: TCurrencyField
      FieldName = 'FIYAT'
    end
    object QESKIFIYATARIH: TDateField
      FieldName = 'FIYATARIH'
    end
  end
  object QFiyatU: TQuery
    DatabaseName = 'ECZ'
    Params.Data = {
      01000300046E6F73750003040000000000000003747268000B080000002C845D
      40CB420000036679740007080000000000000000000000}
    SQL.Strings = (
      'INSERT INTO URFAYAR'
      '(ILACNO, FITARIH,FIYAT)'
      #9'VALUES(:nosu, :trh, :fyt)')
    Left = 88
    Top = 16
  end
end